home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / version.el < prev   
Encoding:
Text File  |  1995-08-28  |  2.9 KB  |  78 lines
  1. ;; Record version number of Emacs.
  2. ;; Copyright (C) 1985, 1991-1994 Free Software Foundation, Inc.
  3.  
  4. ;; This file is part of GNU Emacs.
  5.  
  6. ;; GNU Emacs is free software; you can redistribute it and/or modify
  7. ;; it under the terms of the GNU General Public License as published by
  8. ;; the Free Software Foundation; either version 2, or (at your option)
  9. ;; any later version.
  10.  
  11. ;; GNU Emacs is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;; GNU General Public License for more details.
  15.  
  16. ;; You should have received a copy of the GNU General Public License
  17. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  18. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20.  
  21. ;; The following line is modified automatically
  22. ;; by loading inc-version.el, each time a new Emacs is dumped.
  23. (defconst emacs-version "19.13" "\
  24. Version numbers of this version of Emacs.")
  25.  
  26. (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid")))
  27.  
  28. (defconst emacs-build-time (current-time-string) "\
  29. Time at which Emacs was dumped out.")
  30.  
  31. (defconst emacs-build-system (system-name))
  32.  
  33. (defconst emacs-major-version
  34.   (progn (or (string-match "^[0-9]+" emacs-version)
  35.          (error "emacs-version unparsable"))
  36.      (string-to-number (substring emacs-version
  37.                       (match-beginning 0) (match-end 0))))
  38.   "Major version number of this version of Emacs, as an integer.
  39. Warning, this variable did not exist in emacs versions earlier than:
  40.   FSF Emacs:   19.23
  41.   XEmacs:      19.10")
  42.  
  43. (defconst emacs-minor-version
  44.   (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
  45.          (error "emacs-version unparsable"))
  46.      (string-to-number (substring emacs-version
  47.                       (match-beginning 1) (match-end 1))))
  48.   "Minor version number of this version of Emacs, as an integer.
  49. Warning, this variable did not exist in emacs versions earlier than:
  50.   FSF Emacs:   19.23
  51.   XEmacs:      19.10")
  52.  
  53.  
  54. (defun emacs-version () "\
  55. Return string describing the version of Emacs that is running."
  56.   (interactive)
  57.   (if (interactive-p)
  58.       (message "%s" (emacs-version))
  59.     (format "XEmacs %s of %s %s on %s (%s) [formerly Lucid Emacs]"
  60.         (substring emacs-version 0 (string-match " XEmacs" emacs-version))
  61.         (substring emacs-build-time 0
  62.                (string-match " *[0-9]*:" emacs-build-time))
  63.         (substring emacs-build-time
  64.                (string-match "[0-9]*$" emacs-build-time))
  65.         emacs-build-system system-type)))
  66.  
  67.  
  68. ;; Put the emacs version number into the `pure[]' array in a form that
  69. ;; `what(1)' can extract from the executable or a core file.  We don't
  70. ;; actually need this to be pointed to from lisp; pure objects can't
  71. ;; be GCed.
  72. (purecopy (concat "\n@" "(#)" (emacs-version)
  73.           "\n@" "(#)" "Configuration: " system-configuration "\n"))
  74.  
  75. ;;Local variables:
  76. ;;version-control: never
  77. ;;End:
  78.